#!
$tel = "86+451+86419928";
if($tel=~/(\d+)\+(\d+)\+(\d+)/)
{
	print "country: 0$1\n";
	print "city: 0$2\n";
	print "number: $3\n";
}

print "\n$tel";